Option Explicit
'OҲAppEventCls
Public WithEvents myApp As Application
Private Sub myApp_SheetDeactivate(ByVal Sh As Object)
    MsgBox Sh.Name & "wgOActive]ҥΡ^AFC by Application"
End Sub

'зǼҲ
Dim myAppCls As New AppEventCls
Sub InitializeAppEvent()
    Set myAppCls.myApp = Application
End Sub
